Profile of (eval 264)[Sub/Quote.pm:3]

Filename	(eval 264)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 144 statements in 411µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
10	1	1	168µs	347µs	JSON::Schema::Modern::Document::_set_canonical_uri
1	1	1	11µs	22µs	JSON::Schema::Modern::Document::BEGIN@7
1	1	1	6µs	6µs	Method::Generate::Accessor::_Generated::BEGIN@12.115
1	1	1	6µs	16µs	Method::Generate::Accessor::_Generated::BEGIN@39

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	1µs			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
3	1	0s			my $isa_check_for_canonical_5furi = ${$_[1]->{"\$isa_check_for_canonical_5furi"}};
4	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
5	1	0s			my $coerce_for_canonical_5furi = ${$_[1]->{"\$coerce_for_canonical_5furi"}};
6					package JSON::Schema::Modern::Document;
7	2	44µs	2	33µs	# spent 22µs (11+11) within JSON::Schema::Modern::Document::BEGIN@7 which was called: # once (11µs+11µs) by Sub::Quote::_clean_eval at line 7 no warnings 'closure'; # spent 22µs making 1 call to JSON::Schema::Modern::Document::BEGIN@7 # spent 11µs making 1 call to warnings::unimport
8					# spent 347µs (168+179) within JSON::Schema::Modern::Document::_set_canonical_uri which was called 10 times, avg 35µs/call: # 10 times (168µs+179µs) by JSON::Schema::Modern::Document::BUILD at line 149 of JSON/Schema/Modern/Document.pm, avg 35µs/call sub _set_canonical_uri {
9					($_QUOTED,$_UNQUOTED) if 0;
10					# BEGIN quote_sub PRELUDE
11					package Method::Generate::Accessor::_Generated;
12					# spent 6µs within Method::Generate::Accessor::_Generated::BEGIN@12.115 which was called: # once (6µs+0s) by Sub::Quote::_clean_eval at line 17 BEGIN {
13	1	1µs			$^H = 1762;
14	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
15	1	4µs			%^H = (
16					);
17	1	74µs	1	6µs	} # spent 6µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.115
18					# END quote_sub PRELUDE
19	20	29µs			scalar do { my $value = do {
20	10	20µs			local $Method::Generate::Accessor::CurrentAttribute = {
21					init_arg => undef(),
22					name => "canonical_uri",
23					step => "coercion",
24					};
25	10	8µs			(my $_return),
26					(my $_error), (my $_old_error = $@);
27	10	4µs			(eval {
28	10	22µs	10	163µs	($@ = $_old_error), # spent 163µs making 10 calls to JSON::Schema::Modern::Document::__ANON__[JSON/Schema/Modern/Document.pm:39], avg 16µs/call
29					($_return =
30					$coerce_for_canonical_5furi->($_[1])),
31					1
32					} or
33					$_error = CORE::ref $@ ? $@ : "coercion for \"canonical_uri\" failed: ".$@);
34	10	6µs			($@ = $_old_error),
35					(defined $_error and CORE::die $_error);
36	10	10µs			$_return;
37					}
38					;
39	42	166µs	32	42µs	# spent 16µs (6+10) within Method::Generate::Accessor::_Generated::BEGIN@39 which was called: # once (6µs+10µs) by Sub::Quote::_clean_eval at line 39 (do { no warnings "void"; package Type::Tiny; ((((Scalar::Util::blessed($value) and $value->isa(q[Mojo::URL]))) && (do { local $_ = $value; not defined $_->fragment }))) or Type::Tiny::_failed_check($isa_check_for_canonical_5furi, "__ANON__", $value, "attribute_name","canonical_uri","attribute_step","isa check","mgaca","0","varname","\$self->{\"canonical_uri\"}"); $value }), # spent 16µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@39 # spent 10µs making 1 call to warnings::unimport # spent 6µs making 10 calls to Mojo::URL::fragment, avg 600ns/call # spent 5µs making 10 calls to Scalar::Util::blessed, avg 500ns/call # spent 5µs making 10 calls to UNIVERSAL::isa, avg 500ns/call
40					($_[0]->{"canonical_uri"} = $value),
41	10	14µs			($_[0]->{"canonical_uri"}),
42					} }
43	1	1µs			$$_UNQUOTED = \&_set_canonical_uri;
44					}
45	1	6µs			1;
46
47					;